home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
VBUTIL.ZIP
/
PSCREEN.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1993-03-04
|
6KB
|
127 lines
Form1
Pseudo-Screen
Form1%
SaveBtn
LoadBtn
ScreenBox
CursorXBox
QuitBtn
TextBox
CursorYBox
ClearBtn
Clear Screen
MoveBtn
Move Cursor
LocateBtn
Locate Cursor
PrintBtn
Print
ScrollUpBtn
ScrollUp
NewLineBtn
NewLine
ScreenLbl
The Screen
ColumnLbl
Column
TextLbl
RowLbl
MAX_ROWS
MAX_COLS
ScrLine
CursX
CursY
ScreenBuffers
BufX1
BufY~
ClearScreen
ScreenBox
GotoXY
WhereX
WhereYE
ScrollUp
NumLines
UpdateScreenText
NewLine
PPrint
UpdateScreenNow0
LenStr
LenLine
LenDiff
SaveScreen
BufferY
LoadScreen
QuitBtn_Click
ClearBtn_Clickw
LocateBtn_Click
MoveBtn_Click
CursorXBox
CursorYBox%
PrintBtn_Click
TextBox
ScrollUpBtn_Click
NewLineBtn_Click
@ Form_Load
SaveBtn_Click
LoadBtn_Click
ScreenBox_ChangeP
constants the define the size of the emulated screen
the array and variables that maintain the data fore
the emulated screen
declarations for the screen buffera
ClearBtn_Click
ClearScreen
clear the screen by assigning empty strings to thee
ScreenBox and ScrLine array and setting the cursore
variables to 1.
Form_Load
GotoXY
move the hidden cursor to (X,Y)
Pad string with spacesi
LoadBtn_Click
LoadScreen
load screen from the Buffer() array
the X% and Y% parameters specify new cursor location
LocateBtn_Click
MoveBtn_Click
NewLine
move the hidden cursor to the first column of
the next line. Scroll screen up if the cursor
is already at the last allowed screen row
NewLineBtn_Click
PPrint
Emulate a simple form of the QuickBasic print:
PRINT Astring$;
The second parameter enable you to update the texte
on the screen, or keep the changes hidden (for now).
string cannot fit on the current line?d
split orignal string into two strings
next-line texto
Pad current line
write S to current line
update CursX
the next-line string is not empty?n
print to the next line
pad the string for the next lineo
write the next-line string
update the screen now?
PrintBtn_Click
QuitBtn_Click
SaveBtn_Click
SaveScreen
save screen to Buffer() array.
the current position of the hidden cursor iso
stored in parameters X% and Y%d
ScrollUp
scroll up a specified number of lines
scroll at most MAX_ROWS rows
copy leading string to emulate scroll
assign empty string to trailing strings
ScrollUpBtn_Click
UpdateScreenText
update the text in the ScreenBox
WhereX
return the value of CursX
WhereY
return the value of CursY